home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 February / PCWFEB06.iso / Software / FromTheMag / PrintFile 2.1.5 / PrFile32.exe / 1033 / RCDATA / 148 < prev   
Encoding:
Text File  |  2001-09-08  |  1.6 KB  |  88 lines
  1. %!PS-Adobe-3.0
  2. %%Creator: PrintFile version 2.0
  3. %%LanguageLevel: 1
  4. %%EndComments
  5. %%BeginProlog
  6. %
  7. % PrintFile EPS printing procedure set
  8. % Copyright 1997 Peter Lerup
  9. % 
  10. % Author: Peter Lerup
  11. % Date:   97-07-23
  12.  
  13. /prf_scale 1 def
  14. /prf_frame_hook {
  15. } def
  16. /prf_header_hook {
  17. } def
  18. /prf_bbox {
  19.   bbx1 bby1 bbx2 bby2
  20. } def
  21.  
  22. /xdef { exch def } def
  23. /_center {
  24.   prx2 prx1 add 2 div bbx2 bbx1 add 2 div sub
  25.   pry2 pry1 add 2 div bby2 bby1 add 2 div sub
  26.   translate
  27. } def
  28.  
  29. /_scale {
  30.   prx2 prx1 sub bbx2 bbx1 sub div
  31.   pry2 pry1 sub bby2 bby1 sub div
  32.   2 copy gt {exch} if pop 0.95 mul /prf_scale xdef
  33.   bbx2 bbx1 add 2 div bby2 bby1 add 2 div translate 
  34.   prf_scale dup scale
  35.   bbx2 bbx1 add 2 div neg bby2 bby1 add 2 div neg translate 
  36. } def
  37.  
  38. /_begin {
  39.   initgraphics
  40.   /filename xdef
  41.   /doheader xdef
  42.   /framewidth xdef
  43.   /doframe xdef
  44.   /option xdef
  45.   /bby2 xdef
  46.   /bbx2 xdef
  47.   /bby1 xdef
  48.   /bbx1 xdef
  49.   newpath clippath pathbbox newpath
  50.   /pry2 xdef
  51.   /prx2 xdef
  52.   /pry1 xdef
  53.   /prx1 xdef
  54.  
  55.   option 1 ge { _center } if
  56.   option 2 ge { _scale } if
  57.  
  58.   save [
  59.   /showpage {} def
  60.  
  61. } def
  62.  
  63. /_drawframe {
  64.   matrix currentmatrix matrix defaultmatrix setmatrix
  65.   framewidth setlinewidth
  66.   setmatrix
  67.   prf_frame_hook
  68.   newpath
  69.   bbx1 bby1 moveto bbx2 bby1 lineto bbx2 bby2 lineto
  70.   bbx1 bby2 lineto bbx1 bby1 lineto stroke
  71. } def
  72.  
  73. /_drawheader {
  74.   initgraphics
  75.   /Helvetica findfont 9 scalefont setfont
  76.   prx1 pry2 moveto 15 -20 rmoveto
  77.   filename
  78.   prf_header_hook
  79.   show
  80. } def
  81.  
  82. /_end {
  83.   doframe { _drawframe } if
  84.   doheader { _drawheader } if
  85.   showpage
  86. } def
  87. %%EndProlog
  88.